SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

CREATE PROC [dbo].[SP_TXMVTO_CNTB_I42]          
/*---------------------------------------------------------------------*/          
/*----- Empresa          : OFISIS S.A.                            -----*/          
/*----- Cliente          : OFISIS S.A.                            -----*/          
/*----- Sistema          : Contabilidad                           -----*/          
/*----- Modulo           : Empresa                                -----*/          
/*----- Programa         : PASE DE ASTOS DE AJUSTE DE OTROS SISTEMAS -----*/          
/*----- Nombre           : SP_TXMVTO_CNTB_I42                     -----*/          
/*----- Script           : TXMVTO_CNTB                            -----*/          
/*----- Desarrollado     : PDGV                                   -----*/          
/*----- Fecha            : 18/06/2004                             -----*/          
/*----- Base de Datos    : MS SQL Server                          -----*/          
/*----- Version BD       : 2000                                   -----*/          
/*----- Invoca a SP      :                                        -----*/          
/*---------------------------------------------------------------------*/          
/*---------------------------------------------------------------------*/          
/*----- Comentarios      :                                        -----*/          
/*-----                                                           -----*/          
/*---------------------------------------------------------------------*/          
/*---------------------------------------------------------------------*/          
/*----- Drop Proc SP_TXMVTO_CNTB_I42                              -----*/          
/*----- Grant all On SP_TXMVTO_CNTB_I42 To PUBLIC                 -----*/          
/*----- exec SP_TXMVTO_CNTB_I42 '01', 1, 2002, 13, 2003, 0, '001', '000', '0000000001', 'LUZ', 5 -----*/          
/*---------------------------------------------------------------------*/          
@ISCO_EMPR       TD_VC_002,          
@INNU_CNTB_ORIG  TD_IN_001,         
@INNU_CNTB_DEST  TD_IN_001,         
@ISCO_UNID_CNTB  TD_VC_003,          
@ISCO_OPRC_CNTB  TD_VC_003,          
@INNU_ANNO       TD_IN_004_ANNO,          
@INNU_MESE       TD_IN_002_MESE,       
@ISNU_ASTO       TD_VC_010,       
@ISID_SIST       TD_VC_003      
      
As          
 Declare           
 @CSNU_ASTO      TD_VC_010,       
 @CDFE_ASTO_CNTB TD_DT_001,       
 @CSCO_CNTA_EMPR TD_VC_020,       
 @CSTI_AUXI_EMPR TD_VC_001,       
 @CSCO_AUXI_EMPR TD_VC_020,       
 @CSTI_DOCU      TD_VC_003,       
 @CSNU_DOCU      TD_VC_020,        
 @CDFE_DOCU      TD_DT_001,       
 @CDFE_DOCU_VENC TD_DT_001,       
 @CSTI_CAMB      TD_VC_003,       
 @CSCO_MONE      TD_VC_003,       
 @CNFA_CAMB      TD_NU_015_006,       
 @CNFA_CAMB_DIAR TD_NU_015_006,       
 @CSTI_OPER      TD_VC_003,       
 @CNIM_MVTO_ORIG TD_NU_016_004,       
 @CNIM_MVTO_CNTB TD_NU_016_004,       
 @CSDE_GLOS      TD_VC_100,       
 @CSTI_DOCU_REFE TD_VC_003,       
 @CSNU_DOCU_REFE TD_VC_020,       
 @CDFE_DOCU_REFE TD_DT_001,       
 @CSNO_GIRA      TD_VC_100,       
 @CDFE_ENTR_CHEQ TD_DT_001,       
 @CDFE_PROG_CHEQ TD_DT_001,       
 @CSCO_ORDE_SERV TD_VC_020,       
 @CSSI_MVTO_CNTB TD_VC_003,       
 @CSCO_UNID_ORIG TD_VC_003,       
 @CSCO_OPRC_ORIG TD_VC_003,       
 @CSNU_ASTO_ORIG TD_VC_010,       
 @CNNU_SECU_ORIG TD_IN_002,       
 @CSCO_CNTA_ORIG TD_VC_020,        
 @CSST_OTRS      TD_VC_020,       
 @CNNU_PROC      TD_IN_001,       
 @CNNU_PROC_SECU TD_IN_001,       
 @CSST_IMPR_CHEQ TD_VC_001,       
 @CSST_FLAG      TD_VC_020,       
 @CSST_GEST      TD_VC_001,       
 @CSST_REDO      TD_VC_001,       
 @CNCO_TABL_ORIG TD_IN_001,       
 @CSCO_CLAV_TAOR TD_VC_100,       
 @CSCO_TIPO_OPER TD_VC_003,       
 @CNIM_MVTO_RETE TD_NU_016_004,      
 @CSST_IMPR_RETE TD_VC_001,       
 @CSCO_USUA_APRO TD_VC_008,       
 @CDFE_USUA_APRO TD_DT_001_SIST,       
 @CNNU_SECU_DIST TD_IN_001,       
 @CNPO_DIST      TD_NU_009_004,       
 @CSTI_DOCU_DETR TD_VC_003,       
 @CSNU_DOCU_DETR TD_VC_020,       
 @CDFE_DOCU_DETR TD_DT_001,       
 ----       
 @VSST_REEM_ASIE     TD_VC_001,             
 @VSST_ACTI          TD_VC_001,            
 @VSST_LOGI          TD_VC_001,            
 @VSST_PROD          TD_VC_001,            
 @VSID_0005          TD_VC_003,            
 @VSID_CTAS_PROD     TD_VC_003,             
 @VSID_CTAS_INVE     TD_VC_003,             
 @VSST_GENE_ACTI     TD_VC_001,              
 @VSST_GENE_LOGI     TD_VC_001,             
 @VSST_GENE_PROD     TD_VC_001,       
 @VNNV_INFO_CNTA     TD_IN_001,       
 @VNIM_ORIG_REII     TD_NU_016_004,       
 @VNIM_CNTB_REII     TD_NU_016_004,       
 @VNNU_SECU          TD_IN_002       
      
Begin Tran SP_TXMVTO_CNTB_I42             
            
 -- SI NO SE REEMPLAZA ENTONCES VERIFICA SI EXISTE EL SISTEMA ENTONCES ENTONCES NO REEMPLAZA             
 -- SI NO EXISTE ENTONCES REEMPLAZA            
 Select @VNNU_SECU = 0      
      
 Select @VNNU_SECU = IsNull(Max(NU_SECU), 0)       
 From TXMVTO_CNTB       
 Where CO_EMPR = @ISCO_EMPR       
 And NU_CNTB_EMPR = @INNU_CNTB_DEST      
 And CO_UNID_CNTB = @ISCO_UNID_CNTB      
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB      
 And NU_ANNO = @INNU_ANNO      
 And NU_MESE = @INNU_MESE      
 And NU_ASTO = @ISNU_ASTO      
      
 Select @VNNU_SECU = @VNNU_SECU + 1      
      
 --- CASO Asientos de otros sistemas       
 Declare CU_TXMVTO_CNTB_I42_1 cursor For          
 Select t2.FE_ASTO_CNTB, t2.CO_CNTA_EMPR, t2.TI_AUXI_EMPR, t2.CO_AUXI_EMPR, t2.TI_DOCU, t2.NU_DOCU,        
 t2.FE_DOCU, t2.FE_DOCU_VENC, t2.TI_CAMB, t2.CO_MONE, t2.FA_CAMB, t2.FA_CAMB_DIAR, t2.TI_OPER, t2.IM_MVTO_ORIG, t2.IM_MVTO_CNTB,      
 t2.DE_GLOS, t2.TI_DOCU_REFE, t2.NU_DOCU_REFE, t2.FE_DOCU_REFE, t2.NO_GIRA, t2.FE_ENTR_CHEQ, t2.FE_PROG_CHEQ, t2.CO_ORDE_SERV,      
 t2.SI_MVTO_CNTB, t2.CO_UNID_ORIG, t2.CO_OPRC_ORIG, t2.NU_ASTO_ORIG, t2.NU_SECU_ORIG, t2.CO_CNTA_ORIG, t2.ST_OTRS, t2.NU_PROC,       
 t2.NU_PROC_SECU, t2.ST_IMPR_CHEQ, t2.ST_FLAG, t2.ST_GEST, t2.ST_REDO, t2.CO_TABL_ORIG, t2.CO_CLAV_TAOR, t2.CO_TIPO_OPER, t2.IM_MVTO_RETE,      
 t2.ST_IMPR_RETE, t2.CO_USUA_APRO, t2.FE_USUA_APRO, t2.NU_SECU_DIST, t2.PO_DIST, t2.TI_DOCU_DETR, t2.NU_DOCU_DETR, t2.FE_DOCU_DETR      
 From   
  
( Select Distinct t1.CO_EMPR, t1.NU_CNTB_EMPR, t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB, t1.NU_ANNO, t1.NU_MESE, t1.NU_ASTO  
 From TXMVTO_CNTB t1, TMPLAN_ANNO t2, TTIDEN_CNTA t3      
 Where t1.CO_EMPR = @ISCO_EMPR       
 And t1.NU_CNTB_EMPR = @INNU_CNTB_ORIG       
 And t1.CO_UNID_CNTB = @ISCO_UNID_CNTB       
 And t1.NU_ANNO = @INNU_ANNO      
 And t1.NU_MESE = @INNU_MESE       
 And t2.CO_EMPR = t1.CO_EMPR      
 And t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR       
 And t3.CO_EMPR = t1.CO_EMPR      
 And t3.NU_CNTB_EMPR = t1.NU_CNTB_EMPR      
 And t3.ID_CNTA = @ISID_SIST      
 And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR     ) t1, TXMVTO_CNTB t2  
  
 Where t2.CO_EMPR = t1.CO_EMPR  
 And t2.NU_CNTB_EMPR = t1.NU_CNTB_EMPR   
 And t2.CO_UNID_CNTB = t1.CO_UNID_CNTB  
 And t2.CO_OPRC_CNTB = t1.CO_OPRC_CNTB  
 And t2.NU_ANNO = t1.NU_ANNO  
 And t2.NU_MESE = t1.NU_MESE  
 And t2.NU_ASTO = t1.NU_ASTO  
  
      
 Open CU_TXMVTO_CNTB_I42_1          
 Fetch CU_TXMVTO_CNTB_I42_1 Into       
 @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,        
 @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER, @CNIM_MVTO_ORIG,       
 @CNIM_MVTO_CNTB, @CSDE_GLOS, @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA, @CDFE_ENTR_CHEQ,       
 @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG, @CNNU_SECU_ORIG,       
 @CSCO_CNTA_ORIG, @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST, @CSST_REDO,       
 @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER, @CNIM_MVTO_RETE,      
 @CSST_IMPR_RETE, @CSCO_USUA_APRO, @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST, @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR      
       
 While @@Fetch_status = 0          
  Begin          
       
 --- GRABA IMPORTE AJUSTADO POR INFLACION : VALOR CUENTA + VALOR REI       
      
 Insert Into TXMVTO_CNTB (CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO,       
 NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,      
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG, IM_MVTO_CNTB, DE_GLOS, TI_DOCU_REFE,       
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,       
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,       
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,       
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, CO_USUA_CREA, FE_USUA_CREA,       
 CO_USUA_MODI, FE_USUA_MODI)      
 Values       
(@ISCO_EMPR, @INNU_CNTB_DEST, @ISCO_UNID_CNTB, @ISCO_OPRC_CNTB, @INNU_ANNO, @INNU_MESE, @ISNU_ASTO,       
 @VNNU_SECU, @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU, 
 @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER, 
 Round(@CNIM_MVTO_ORIG, 2), Round(@CNIM_MVTO_CNTB, 2), @CSDE_GLOS, @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, 
 @CDFE_DOCU_REFE, @CSNO_GIRA, @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG, 
 @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG, @CNNU_SECU_ORIG, @CSCO_CNTA_ORIG, @CSST_OTRS, 9990, 9990, 
 @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST, @CSST_REDO, @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER, 
 @CNIM_MVTO_RETE, @CSST_IMPR_RETE, @CSCO_USUA_APRO, @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST, 
 @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR, System_user, Getdate(), System_user, Getdate()) 
      
 If @@ERROR <> 0          
  Begin           
      Rollback Transaction SP_TXMVTO_CNTB_I42          
      Return          
  End      
      
 Select @VNNU_SECU = @VNNU_SECU + 1       
      
 Fetch CU_TXMVTO_CNTB_I42_1 Into @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,        
 @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER, @CNIM_MVTO_ORIG,       
 @CNIM_MVTO_CNTB, @CSDE_GLOS, @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA, @CDFE_ENTR_CHEQ,       
 @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG, @CNNU_SECU_ORIG,       
 @CSCO_CNTA_ORIG, @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST, @CSST_REDO,       
 @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER, @CNIM_MVTO_RETE,      
 @CSST_IMPR_RETE, @CSCO_USUA_APRO, @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST, @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR      
       
 End       
      
 Close CU_TXMVTO_CNTB_I42_1                                          
 Deallocate  CU_TXMVTO_CNTB_I42_1       
      
Commit Tran SP_TXMVTO_CNTB_I42       
      
/*--------------------------------- Fin ---------------------------------*/          
 



GO
